home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Modules / !ZapJRF / Scripts / UnComment < prev   
Text File  |  2002-05-08  |  1KB  |  111 lines
  1. | Basic mode
  2. #IfModeN Basic
  3.  CLEFT
  4.  #IfText " "
  5.   SEARCHFORWARD "\[^ ]"
  6.   LEFT
  7.   SEARCHBACK "\[ ]"
  8.  #EndIf
  9.  #IfText "ô"
  10.   UNIVERSALARG "4"
  11.   DELETENEXT
  12.  #Endif
  13.  CRIGHT
  14.  DOWN
  15.  CLEFT
  16. #EndIf
  17. | Asm mode
  18. #IfModeN Asm
  19.  CLEFT
  20.  #IfText "; "
  21.   RIGHT
  22.   RIGHT
  23.   DELETE
  24.   DELETE
  25.  #EndIf
  26.  CRIGHT
  27.  DOWN
  28.  CLEFT
  29. #EndIf
  30. | Pascal mode
  31. #IfModeN Pascal
  32.  MJE_UNCOMMENTLINE
  33. #EndIf
  34. | HoTMeaL
  35. #IfModeN HoTMeaL
  36.  CLEFT
  37.  #IfText "<!-- "
  38.   UNIVERSALARG "5"
  39.   DELETENEXT
  40.   CRIGHT
  41.   UNIVERSALARG "4"
  42.   DELETE
  43.   DOWN
  44.   CLEFT
  45.  #EndIf
  46. #Endif
  47. | C and C++
  48. #IfModeN C++,C
  49.  CLEFT
  50.  SEARCHFORWARD "\[^ \x09]"
  51.  LEFT
  52.  #IfText "/*"
  53.   DELETENEXT
  54.   DELETENEXT
  55.   DELETENEXT
  56.   SEARCHFORWARD "\(/`-`*\|\x0a\)"
  57.   LEFT:LEFT:LEFT
  58.   #IfText "/-*"
  59.    RIGHT
  60.    DELETENEXT
  61.   #EndIf
  62.   CRIGHT
  63.   LEFT
  64.   LEFT
  65.   LEFT
  66.   #IfText "-*/"
  67.    DELETENEXT
  68.   #Else
  69.    CRIGHT
  70.    DELETE
  71.    DELETE
  72.    DELETE
  73.   #EndIf
  74.  #EndIf
  75.  DOWN
  76.  CLEFT
  77. #EndIf
  78. | Obey mode
  79. #IfModeN Obey,ForZap
  80.  CLEFT
  81.  #IfText "|| "
  82.   DELETENEXT
  83.   DELETENEXT
  84.  #EndIf
  85.  CRIGHT
  86.  DOWN
  87.  CLEFT
  88. #EndIf
  89. | Email mode (Remove a quote level)
  90. #IfModeN Email
  91.  CLEFT
  92.  SELREGION
  93.  CRIGHT
  94.  EMAIL_DECQUOTING
  95.  DOWN
  96.  CLEFT
  97. #EndIf
  98. | Perl mode
  99. #IfModeN Perl
  100.  CLEFT
  101.  SEARCHFORWARD "\[^ \x09]"
  102.  LEFT
  103.  #IfText "# "
  104.   DELETENEXT
  105.   DELETENEXT
  106.  #EndIf
  107.  CRIGHT
  108.  DOWN
  109.  CLEFT
  110. #EndIf
  111.